VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
END
Attribute VB_Name = "clsWorker"
Attribute VB_Base = "0{FCFB3D2A-A0FA-1068-A738-08002B3371B5}"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_TemplateDerived = False
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Attribute VB_Customizable = False
Option Explicit
'-------------------------------------------------------------------------
'This class is used for storing related data
'that will be added to a collection
'Stores a Worker object and data related to managing that Worker object
'-------------------------------------------------------------------------
Public ID As Long               'ID of the Worker, it should be the same
                                'as the Workers ID property and the same
                                'as the key an object of this class is stored
                                'in gcWorkers collection with
Public Busy As Boolean          'Worker is processing a Service Request
Public Worker As AEWorker.Worker    'A valid Worker class object
Public RemoveMe As Boolean      'If true the Worker is marked for removal
                                'from the PoolMgr's or QueueMgr's
                                'collection of Workers
